home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aav.d64 / the flat cube (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  194 lines
  1. 1 PRINT"                         ";
  2. 2 PRINT"                ** THE FL";
  3. 3 PRINT"AT CUBE BY BILL HUGHES '8";
  4. 4 PRINT"7 **                     ";
  5. 5 PRINT"                         ";
  6. 6 PRINT"       TOP FACE          ";
  7. 7 PRINT"                       [154][176][192]";
  8. 8 PRINT"[192][192][192][192][174]                    ";
  9. 9 PRINT"PRESS TO TURN[194][144] [146]  [146]  [154][146][194]  PRE";
  10. 10 PRINT"SS SHIFT KEY     CLOCKWIS";
  11. 11 PRINT"E  [194]     [194]  FIRST TO ROTA";
  12. 12 PRINT"TE                [194][144] [146]  [146]  [154][146][194]";
  13. 13 PRINT"   ANTICLOCKWISE         ";
  14. 14 PRINT"        [194]     [194]          ";
  15. 15 PRINT"                       [194][144] ";
  16. 16 PRINT"[146]  [146]  [154][146][194]                    ";
  17. 17 PRINT"       [176]`````{`````{`````";
  18. 18 PRINT"[178]`````[174]               b [146] ";
  19. 19 PRINT" [146]  [154][146][194][154] [146]  [146]  [154][146][194] [146]  [146]  [154][146][194] [146]  [146]  [154][146][194]   ";
  20. 20 PRINT"            [194]     [194]     [194]";
  21. 21 PRINT"     [194]     [194]         LEFT";
  22. 22 PRINT"  [194] [146]  [146]  [154][146][194][154] [146]  [146]  [154][146][194] [146]  [146]  [154][146][194] [146]  [146][160]";
  23. 23 PRINT" [154][146][194][160][160]BACK   FACE  [194]     [194] ";
  24. 24 PRINT"    [194]     [194][160][160][160][160][160][194][160] FACE  ";
  25. 25 PRINT"       [194] [146]  [146]  [154][146][194][154] [146]  [146]  [154][146][194] [146]  [146]  ";
  26. 26 PRINT"[154][146][194] [146]  [146]  [154][146][194]               [173][192][192]";
  27. 27 PRINT"```{`````{`````[177]`````[189]   ";
  28. 28 PRINT"      L=LEFT      [194][156] [146]  [146]  [154][146][194]";
  29. 29 PRINT"RIGHT                B=BA";
  30. 30 PRINT"SE      [194]     [194]FACE      ";
  31. 31 PRINT"           T=TOP       [194][156] ";
  32. 32 PRINT"[146]  [146]  [154][146][194]                    ";
  33. 33 PRINT" F=FRONT     [194]     [194]   S=";
  34. 34 PRINT"SOLVE BY C64    O=BACK   ";
  35. 35 PRINT"   [194][156] [146]  [146]  [154][146][194]               ";
  36. 36 PRINT"      R=RIGHT     [173][192][192][192][192][192][189]";
  37. 37 PRINT"                         ";
  38. 38 PRINT"      BOTTOM FACE        ";
  39. 39 PRINT"               ";
  40. 100 V=55510
  41. 102 NM=V:NN=V+2:NO=V+4:NT=V+80:NP=V+84: NS=V+160:NR=V+162:NQ=V+164
  42. 105 NA=V+234:NB=V+236:NC=V+238:ND=V+240:NE=V+242:NF=V+244:NG=V+246:NH=V+248
  43. 110 NI=V+250:NJ=V+252:NK=V+254:NL=V+256
  44. 115 OO=V+314:OP=V+318:OQ=V+320:ZZ=V+324:OS=V+326:OT=V+330:OU=V+332:OV=V+336
  45. 120 NU=V+394:NV=V+396:NW=V+398:NX=V+400:NY=V+402:NZ=V+404:OA=V+406:OB=V+408
  46. 125 OC=V+410:OD=V+412:OE=V+414:QQ=V+416
  47. 130 OG=V+480:OH=V+482:OI=V+484:YY=V+560:OJ=V+564:OM=V+640:OL=V+642:OK=V+644
  48. 140 G$=""
  49. 150 GETA$:IFA$=""THEN GOTO150
  50. 180 IFA$="T"THEN GOSUB14800:GOSUB2800
  51. 185 IFA$="B"THEN GOSUB14800:GOSUB3800
  52. 186 IFA$="F"THEN GOSUB14800:GOSUB4800
  53. 187 IFA$="R"THEN GOSUB14800:GOSUB5800
  54. 188 IFA$="L"THEN GOSUB14800:GOSUB6800
  55. 189 IFA$="O"THEN GOSUB14800:GOSUB7800
  56. 190 IFA$="[212]"THEN GOSUB14800:GOSUB8800
  57. 200 IFA$="[194]"THEN GOSUB14800:GOSUB9800
  58. 210 IFA$="[198]"THEN GOSUB14800:GOSUB10800
  59. 220 IFA$="[210]"THEN GOSUB14800:GOSUB11800
  60. 230 IFA$="[204]"THEN GOSUB14800:GOSUB12800
  61. 240 IFA$="[207]"THEN GOSUB14800:GOSUB13800
  62. 250 IFA$="S"GOTO14840
  63. 900 GOTO150
  64. 2800 AU=PEEK(NM):AV=PEEK(NN):AW=PEEK(NO):BB=PEEK(NT):AX=PEEK(NP):BA=PEEK(NS)
  65. 2850 AZ=PEEK(NR):AY=PEEK(NQ)
  66. 2900 AI=PEEK(NA):AJ=PEEK(NB):AK=PEEK(NC):AL=PEEK(ND):AM=PEEK(NE):AN=PEEK(NF)
  67. 2950 AO=PEEK(NG):AP=PEEK(NH):AQ=PEEK(NI):AR=PEEK(NJ):AS=PEEK(NK):AT=PEEK(NL)
  68. 3000 POKENA,AL:POKENB,AM:POKENC,AN:
  69. 3050 POKEND,AO:POKENE,AP:POKENF,AQ:POKENG,AR:POKENH,AS:POKENI,AT
  70. 3100 POKENJ,AI:POKENK,AJ:POKENL,AK
  71. 3150 POKENM,BA:POKENN,BB:POKENO,AU:POKENP,AV:POKENQ,AW:POKENR,AX:POKENS,AY
  72. 3200 POKENT,AZ
  73. 3500 RETURN
  74. 3800 BC=PEEK(NU):BD=PEEK(NV):BE=PEEK(NW):BF=PEEK(NX):BG=PEEK(NY):BH=PEEK(NZ)
  75. 3850 BI=PEEK(OA):BJ=PEEK(OB):BK=PEEK(OC):BL=PEEK(OD):BM=PEEK(OE):BN=PEEK(QQ)
  76. 3900 BO=PEEK(OG):BP=PEEK(OH):BQ=PEEK(OI)
  77. 3950 BV=PEEK(YY):BR=PEEK(OJ):BU=PEEK(OM):BT=PEEK(OL):BS=PEEK(OK)
  78. 4000 POKEOG,BU:POKEOH,BV:POKEOI,BO:POKEOJ,BP:POKEOK,BQ:POKEOL,BR:POKEOM,BS
  79. 4050 POKEYY,BT
  80. 4100 POKENU,BL:POKENV,BM:POKENW,BN:POKENX,BC:POKENY,BD:POKENZ,BE:POKEOA,BF
  81. 4150 POKEOB,BG:POKEOC,BH:POKEOD,BI:POKEOE,BJ:POKEQQ,BK
  82. 4500 RETURN
  83. 4800 BA=PEEK(NS):AZ=PEEK(NR):AY=PEEK(NQ):AO=PEEK(NG):CA=PEEK(OS):BI=PEEK(OA)
  84. 4850 BQ=PEEK(OI):BP=PEEK(OH):BO=PEEK(OG):BE=PEEK(NW):BX=PEEK(OP):AK=PEEK(NC)
  85. 4900 AL=PEEK(ND):AM=PEEK(NE):AN=PEEK(NF)
  86. 4950 BZ=PEEK(ZZ):BH=PEEK(NZ):BG=PEEK(NY):BF=PEEK(NX):BY=PEEK(OQ)
  87. 5000 POKEND,BF:POKENE,BY:POKENF,AL:POKEZZ,AM:POKENZ,AN:POKENY,BZ:POKENX,BH
  88. 5050 POKEOQ,BG
  89. 5100 POKENS,BE:POKENR,BX:POKENQ,AK:POKENG,BA:POKEOS,AZ:POKEOA,AY:POKEOI,AO
  90. 5150 POKEOH,CA:POKEOG,BI:POKENW,BQ:POKEOP,BP:POKENC,BO
  91. 5500 RETURN
  92. 5800 AO=PEEK(NG):AP=PEEK(NH):AQ=PEEK(NI):CB=PEEK(OT):BK=PEEK(OC):BJ=PEEK(OB)
  93. 5850 BI=PEEK(OA):CA=PEEK(OS):BS=PEEK(OK):BR=PEEK(OJ):BQ=PEEK(OI):BH=PEEK(NZ)
  94. 5900 BZ=PEEK(ZZ):AN=PEEK(NF):AY=PEEK(NQ)
  95. 5950 AX=PEEK(NP):AW=PEEK(NO):AR=PEEK(NJ):CC=PEEK(OU):BL=PEEK(OD)
  96. 6000 POKENG,BI:POKENH,CA:POKENI,AO:POKEOT,AP:POKEOC,AQ:POKEOB,CB:POKEOA,BK
  97. 6050 POKEOS,BJ
  98. 6100 POKENF,BQ:POKENQ,BH:POKENP,BZ:POKENO,AN:POKENJ,AY:POKEOU,AX:POKEOD,AW
  99. 6150 POKEOK,AR:POKEOJ,CC:POKEOI,BL:POKENZ,BS:POKEZZ,BR
  100. 6500 RETURN
  101. 6800 AI=PEEK(NA):AJ=PEEK(NB):AK=PEEK(NC):BX=PEEK(OP):BE=PEEK(NW):BD=PEEK(NV)
  102. 6850 BC=PEEK(NU):BW=PEEK(OO):AU=PEEK(NM):BB=PEEK(NT):BA=PEEK(NS):AL=PEEK(ND)
  103. 6900 BY=PEEK(OQ):BF=PEEK(NX):BO=PEEK(OG)
  104. 6950 BV=PEEK(YY):BU=PEEK(OM):AT=PEEK(NL):CD=PEEK(OV):BN=PEEK(QQ)
  105. 7000 POKENA,BC:POKENB,BW:POKENC,AI:POKEOP,AJ:POKENW,AK:POKENV,BX:POKENU,BE
  106. 7050 POKEOO,BD
  107. 7100 POKEND,AU:POKEOQ,BB:POKENX,BA:POKEOG,AL:POKEYY,BY:POKEOM,BF:POKENL,BU
  108. 7150 POKEOV,BV:POKEQQ,BO:POKENM,BN:POKENT,CD:POKENS,AT
  109. 7500 RETURN
  110. 7800 AR=PEEK(NJ):AS=PEEK(NK):AT=PEEK(NL):CD=PEEK(OV):BN=PEEK(QQ):BM=PEEK(OE)
  111. 7850 BL=PEEK(OD):CC=PEEK(OU):AI=PEEK(NA):BW=PEEK(OO):BC=PEEK(NU):AU=PEEK(NM)
  112. 7900 AV=PEEK(NN):AW=PEEK(NO):AQ=PEEK(NI)
  113. 7950 CB=PEEK(OT):BK=PEEK(OC):BU=PEEK(OM):BT=PEEK(OL):BS=PEEK(OK)
  114. 8000 POKENJ,BL:POKENK,CC:POKENL,AR:POKEOV,AS:POKEQQ,AT:POKEOE,CD:POKEOD,BN
  115. 8050 POKEOU,BM
  116. 8100 POKEOC,BU:POKEOT,BT:POKENI,BS:POKENO,BK:POKENN,CB:POKENM,AQ:POKENA,AW
  117. 8150 POKEOO,AV:POKENU,AU:POKEOM,AI:POKEOL,BW:POKEOK,BC
  118. 8500 RETURN
  119. 8800 AU=PEEK(NM):AV=PEEK(NN):AW=PEEK(NO):BB=PEEK(NT):AX=PEEK(NP):BA=PEEK(NS)
  120. 8850 AZ=PEEK(NR):AY=PEEK(NQ)
  121. 8900 AI=PEEK(NA):AJ=PEEK(NB):AK=PEEK(NC):AL=PEEK(ND):AM=PEEK(NE):AN=PEEK(NF)
  122. 8950 AO=PEEK(NG):AP=PEEK(NH):AQ=PEEK(NI):AR=PEEK(NJ):AS=PEEK(NK):AT=PEEK(NL)
  123. 9000 POKENA,AR:POKENB,AS:POKENC,AT
  124. 9050 POKEND,AI:POKENE,AJ:POKENF,AK:POKENG,AL:POKENH,AM:POKENI,AN
  125. 9100 POKENJ,AO:POKENK,AP:POKENL,AQ
  126. 9150 POKENM,AW:POKENN,AX:POKENO,AY:POKENP,AZ:POKENQ,BA:POKENR,BB:POKENS,AU
  127. 9200 POKENT,AV
  128. 9500 RETURN
  129. 9800 BC=PEEK(NU):BD=PEEK(NV):BE=PEEK(NW):BF=PEEK(NX):BG=PEEK(NY):BH=PEEK(NZ)
  130. 9850 BI=PEEK(OA):BJ=PEEK(OB):BK=PEEK(OC):BL=PEEK(OD):BM=PEEK(OE):BN=PEEK(QQ)
  131. 9900 BO=PEEK(OG):BP=PEEK(OH):BQ=PEEK(OI)
  132. 9950 BR=PEEK(OJ):BS=PEEK(OK):BT=PEEK(OL)
  133. 9980 BU=PEEK(OM):BV=PEEK(YY)
  134. 10000 POKEOG,BQ:POKEOH,BR:POKEOI,BS:POKEOJ,BT:POKEOK,BU:POKEOL,BV:POKEOM,BO
  135. 10050 POKEYY,BP
  136. 10100 POKENU,BF:POKENV,BG:POKENW,BH:POKENX,BI:POKENY,BJ:POKENZ,BK:POKEOA,BL
  137. 10150 POKEOB,BM:POKEOC,BN:POKEOD,BC:POKEOE,BD:POKEQQ,BE
  138. 10500 RETURN
  139. 10800 BA=PEEK(NS):AZ=PEEK(NR):AY=PEEK(NQ):AO=PEEK(NG):CA=PEEK(OS):BI=PEEK(OA)
  140. 10850 BQ=PEEK(OI):BP=PEEK(OH):BO=PEEK(OG):BE=PEEK(NW):BX=PEEK(OP):AK=PEEK(NC)
  141. 10900 AL=PEEK(ND):AM=PEEK(NE):AN=PEEK(NF)
  142. 10950 BZ=PEEK(ZZ):BH=PEEK(NZ):BG=PEEK(NY):BF=PEEK(NX):BY=PEEK(OQ)
  143. 11000 POKEND,AN:POKENE,BZ:POKENF,BH:POKEZZ,BG:POKENZ,BF:POKENY,BY:POKENX,AL
  144. 11050 POKEOQ,AM:POKENR,CA:POKENQ,BI:POKENG,BQ:POKEOS,BP:POKEOA,BO:POKEOI,BE
  145. 11100 POKEOH,BX:POKEOG,AK:POKENW,BA:POKEOP,AZ:POKENC,AY:POKENS,AO:POKENR,CA
  146. 11500 RETURN
  147. 11800 AO=PEEK(NG):AP=PEEK(NH):AQ=PEEK(NI):CB=PEEK(OT):BK=PEEK(OC):BJ=PEEK(OB)
  148. 11850 BI=PEEK(OA):CA=PEEK(OS):BS=PEEK(OK):BR=PEEK(OJ):BQ=PEEK(OI):BH=PEEK(NZ)
  149. 11900 BZ=PEEK(ZZ):AN=PEEK(NF):AY=PEEK(NQ)
  150. 11950 AX=PEEK(NP):AW=PEEK(NO):AR=PEEK(NJ):CC=PEEK(OU):BL=PEEK(OD)
  151. 12000 POKENG,AQ:POKENH,CB:POKENI,BK:POKEOT,BJ:POKEOC,BI:POKEOB,CA:POKEOA,AO
  152. 12050 POKEOS,AP
  153. 12100 POKENF,AW:POKENQ,AR:POKENP,CC:POKENO,BL:POKENJ,BS:POKEOU,BR:POKEOD,BQ
  154. 12150 POKEOK,BH:POKEOJ,BZ:POKEOI,AN:POKENZ,AY:POKEZZ,AX
  155. 12500 RETURN
  156. 12800 AI=PEEK(NA):AJ=PEEK(NB):AK=PEEK(NC):BX=PEEK(OP):BE=PEEK(NW):BD=PEEK(NV)
  157. 12850 BC=PEEK(NU):BW=PEEK(OO):AU=PEEK(NM):BB=PEEK(NT):BA=PEEK(NS):AL=PEEK(ND)
  158. 12900 BY=PEEK(OQ):BF=PEEK(NX):BO=PEEK(OG)
  159. 12950 BV=PEEK(YY):BU=PEEK(OM):AT=PEEK(NL):CD=PEEK(OV):BN=PEEK(QQ)
  160. 13000 POKENA,AK:POKENB,BX:POKENC,BE:POKEOP,BD:POKENW,BC:POKENV,BW:POKENU,AI
  161. 13050 POKEOO,AJ
  162. 13100 POKEND,BO:POKEOQ,BV:POKENX,BU:POKEOG,BN:POKEYY,CD:POKEOM,AT:POKEQQ,AU
  163. 13150 POKEOV,BB:POKENL,BA:POKENM,AL:POKENT,BY:POKENS,BF
  164. 13500 RETURN
  165. 13800 AR=PEEK(NJ):AS=PEEK(NK):AT=PEEK(NL):CD=PEEK(OV):BN=PEEK(QQ):BM=PEEK(OE)
  166. 13850 BL=PEEK(OD):CC=PEEK(OU):AI=PEEK(NA):BW=PEEK(OO):BC=PEEK(NU):AU=PEEK(NM)
  167. 13900 AV=PEEK(NN):AW=PEEK(NO):AQ=PEEK(NI)
  168. 13950 CB=PEEK(OT):BK=PEEK(OC):BU=PEEK(OM):BT=PEEK(OL):BS=PEEK(OK)
  169. 14000 POKENJ,AT:POKENK,CD:POKENL,BN:POKEOV,BM:POKEQQ,BL:POKEOE,CC:POKEOD,AR
  170. 14050 POKEOU,AS
  171. 14100 POKEOC,AW:POKEOT,AV:POKENI,AU:POKENO,AI:POKENN,BW:POKENM,BC:POKENA,BU
  172. 14150 POKEOO,BT:POKENU,BS:POKEOM,BK:POKEOL,CB:POKEOK,AQ
  173. 14500 RETURN
  174. 14800 G$=A$+G$
  175. 14820 RETURN
  176. 14840 C=LEN(G$)
  177. 14850 FORI=1TOC
  178. 14860 D$=MID$(G$,I,1)
  179. 14870 IFD$="T"THENGOSUB8800
  180. 14880 IFD$="B"THENGOSUB9800
  181. 14900 IFD$="F"THENGOSUB10800
  182. 14920 IFD$="R"THENGOSUB11800
  183. 14940 IFD$="L"THENGOSUB12800
  184. 14960 IFD$="O"THENGOSUB13800
  185. 14980 IFD$="[212]"THENGOSUB2800
  186. 15000 IFD$="[194]"THENGOSUB3800
  187. 15020 IFD$="[198]"THENGOSUB4800
  188. 15040 IFD$="[210]"THENGOSUB5800
  189. 15060 IFD$="[204]"THENGOSUB6800
  190. 15080 IFD$="[207]"THENGOSUB7800
  191. 15120 FORZ=1TO200:NEXTZ:NEXTI:G$=""
  192. 15130 PRINT"[144]SOLVED[154]"
  193. 15140 FORK=1TO500:NEXTK:GOTO1
  194.